Chip 2002 April/Chip_2002-04_cd1.bin/zkuste/delphi/kolekce/d3456/BFC.ZIP/bfc/FileCheck demo/FileChk.dfm/FileChk.txt

Text File | 1999-05-19 | 10KB | 394 lines

object FM_Reindex: TFM_Reindex
  Left = 51
  Top = 121
  HelpContext = 100
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Biets Freddy Components : FileCheck v1.2'
  ClientHeight = 484
  ClientWidth = 721
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 97
    Width = 721
    Height = 368
    Caption = 'Files'
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 8
      Top = 16
      Width = 129
      Height = 345
      Caption = 'Select from...'
      TabOrder = 0
      object LBX_NIndex: TListBox
        Left = 8
        Top = 16
        Width = 113
        Height = 321
        Hint = 'Doubleclick to select file'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        Sorted = True
        TabOrder = 0
        OnDblClick = BT_PlusClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 176
      Top = 16
      Width = 129
      Height = 345
      Caption = 'Selected'
      TabOrder = 5
      object LBX_WIndex: TListBox
        Left = 8
        Top = 16
        Width = 113
        Height = 321
        Hint = 'Doubleclick to '#39'un'#39'-select file'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        Sorted = True
        TabOrder = 0
        OnDblClick = BT_MinClick
      end
    end
    object BT_Plus: TButton
      Left = 144
      Top = 80
      Width = 25
      Height = 25
      Hint = 'select file'
      Caption = '>'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BT_PlusClick
    end
    object BT_PlusA: TButton
      Left = 144
      Top = 120
      Width = 25
      Height = 25
      Hint = 'Select all files'
      Caption = '>>'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BT_PlusAClick
    end
    object BT_Min: TButton
      Left = 144
      Top = 200
      Width = 25
      Height = 25
      Hint = #39'un'#39'-select file'
      Caption = '<'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BT_MinClick
    end
    object BT_MinA: TButton
      Left = 144
      Top = 240
      Width = 25
      Height = 25
      Hint = #39'un'#39'-select all files'
      Caption = '<<'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BT_MinAClick
    end
    object GB_Keuze: TGroupBox
      Left = 312
      Top = 16
      Width = 401
      Height = 345
      TabOrder = 6
      object Label1: TLabel
        Left = 238
        Top = 296
        Width = 52
        Height = 13
        Caption = 'To check :'
      end
      object LB_TeIndex: TLabel
        Left = 336
        Top = 296
        Width = 6
        Height = 13
        Caption = '0'
      end
      object Label2: TLabel
        Left = 241
        Top = 312
        Width = 49
        Height = 13
        Caption = 'Checked :'
      end
      object LB_GeIndex: TLabel
        Left = 336
        Top = 312
        Width = 6
        Height = 13
        Caption = '0'
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 16
        Width = 385
        Height = 89
        Caption = 'Operation'
        TabOrder = 0
        object CB_Pack: TCheckBox
          Left = 16
          Top = 24
          Width = 185
          Height = 17
          Hint = 'check to pack selected files'
          Caption = 'Pack file'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CB_ReIndex1: TCheckBox
          Left = 16
          Top = 44
          Width = 177
          Height = 17
          Hint = 'check to reindex selected files'
          Caption = 'Reindex file'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object CB_Struct: TCheckBox
          Left = 16
          Top = 64
          Width = 153
          Height = 17
          Hint = 'Check to chech structure of selected files'
          Caption = 'Check structure'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
      end
      object Panel1: TPanel
        Left = 8
        Top = 292
        Width = 193
        Height = 41
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        object BT_Start: TBitBtn
          Left = 8
          Top = 8
          Width = 177
          Height = 25
          Hint = 'Push here to start checking'
          Caption = 'Start check'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = BT_StartClick
          Glyph.Data = {
            42010000424D4201000000000000760000002800000011000000110000000100
            040000000000CC00000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777700000007777777777777777700000007444444444444777700000007488
            8888888847777000000074777777770747777000000074700700700047777000
            000074777777770007777000000074700700700B80777000000074777777770B
            707770000000744444444440B8077000000074F44F44F440B707700000007444
            444444440B80700000007777777777770B807000000077777777777770050000
            0000777777777777705500000000777777777777770070000000777777777777
            777770000000}
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 112
        Width = 385
        Height = 117
        Caption = 'Description from DBI-files'
        TabOrder = 1
        object CB_Leeg: TCheckBox
          Left = 16
          Top = 64
          Width = 361
          Height = 17
          Hint =
            'Check to delete all the data in from the selected files and '#13#10're' +
            'build them according to the description of the DBI-file'
          Caption = 'Empty file and rebuild from DBI-file'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object CB_ReIndex2: TCheckBox
          Left = 16
          Top = 24
          Width = 361
          Height = 17
          Hint =
            'Check to delete the indexes from selected files and '#13#10'rebuild th' +
            'em according to the description of the DBI-file'
          Caption = 'Delete indexes and rebuild from DBI-files'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CB_IniData: TCheckBox
          Left = 16
          Top = 84
          Width = 361
          Height = 17
          Hint = 'Check make DBI-files from the selected files.'
          Caption = 'Make DBI-file from datafile'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
        object CB_Heropbouw: TCheckBox
          Left = 16
          Top = 44
          Width = 361
          Height = 17
          Hint = 'Check to rebuild selected files.'
          Caption = 'Rebuild file from DBI-file'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 232
        Width = 385
        Height = 49
        Caption = 'Delete old files'
        TabOrder = 3
        object CB_Conversie: TCheckBox
          Left = 16
          Top = 24
          Width = 361
          Height = 17
          Caption = 'Delete old files after conversion'
          TabOrder = 0
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 465
    Width = 721
    Height = 19
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object Label3: TLabel
      Left = 7
      Top = 3
      Width = 330
      Height = 13
      AutoSize = False
      Caption = '(C) 1999 Biets Freddy'
    end
    object ProgressBar1: TProgressBar
      Left = 344
      Top = 1
      Width = 376
      Height = 17
      Align = alRight
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
  object GroupBox7: TGroupBox
    Left = 0
    Top = 0
    Width = 721
    Height = 97
    Align = alTop
    Caption = 'File location'
    TabOrder = 2
    object Label4: TLabel
      Left = 15
      Top = 27
      Width = 47
      Height = 13
      Caption = 'Datafiles :'
    end
    object Label5: TLabel
      Left = 14
      Top = 56
      Width = 48
      Height = 13
      Caption = 'DBI-Files :'
    end
    object DirectoryEdit1: TDirectoryEdit
      Left = 72
      Top = 24
      Width = 633
      Height = 21
      InitialDir = '.'
      DirectInput = False
      NumGlyphs = 1
      TabOrder = 0
      Text = '.'
      OnChange = DirectoryEdit1Change
    end
    object DirectoryEdit2: TDirectoryEdit
      Left = 72
      Top = 56
      Width = 633
      Height = 21
      DialogOptions = [sdAllowCreate, sdPerformCreate, sdPrompt]
      InitialDir = '.'
      DirectInput = False
      NumGlyphs = 1
      TabOrder = 1
      Text = '.'
    end
  end
  object FC: TBFC_FileCheck
    Pack = False
    RebuildIndex = False
    NewIndex = False
    RebuildFile = False
    NewFile = False
    CtrlStruct = False
    MakeIni = False
    DeleteToRecycleBin = True
    Left = 656
    Top = 129
  end
end